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TITLE TRANSFER Transfer vectors for Symiont Services Roucines 
-IDENT ‘'v04-000‘ 


Seti eh ig chad cle oth cals Sic cin a eam elie ati 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE Re uite eee A LICENSE ty MAY BE ne By ot 4 


se 
& 
ye 
® 
e 
a 
* 
a 
Y * 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
% 

* 

% 

* 

® 

2 

© 

* 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


a oe ee . 
eeu neeeeneeeeneneeeee es 


Daler mata itr he nk a ah intraclass hen cde 


oe FACILITY: 

Symbiont Services Facility 

; } 
; ABSTRACT: 


This module provides universal transfer vectors for the 
shareable symbiont services. 


ENVIRONMENT: 

Native mode, user mode 
AUTHOR: 

Greg Robert 27-Apr-1983 
MODIFIED BY: 


v03-010 GRROO10 Gregory R. Robert 16-May-1984 
Move hangup flag from task _flags to stream_flags 


v03-009 GRROOOS Gregory R. Robert 29-Sep-1983 
Changed Library module name from smbdef to prtsmbdef. 


v03-008 GRROOO7 egory R. Robert 27-Sep-1983 
Alter PSECT attribe es so that transfer image section 
is at front of image. 


V3B-007 GRR3007 Gregory R. Robert 23-Aug-1983 


CSOOCOCCOCOCOCOSCOOCSOSCOSOSOSOOCOCOCOOCOOCSOOOOCOOCOOOOOOOOOCOO 


COOOCSCOOCOOOCOOCOOOOSOOOOSOSOOOSOSOSOOSOSOSOSOOSOOCOOOOOCOOCOCOOOOOOCOOCOOCOOOOO 
NOU EWN 0 OO NAW EWN $$ O ODO NAMN EWN 0 OD NAU EWN HO ODMOAU EWN OOOVNAO US wr 
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v04-000 -SEP-1984 7:42:09 PRTSMB.SRCJTRANSFER.MAR; 1 
000 8 ; Bugfixes, page_setup_modules, form_setup_modules, 
00 26 ; sheet teed, ayabiont initiated pate. tock and stop_stream, 
$ 4 ; hangup code, read and write item services 
9000 6¢ : V3B-006 GRR3006 Gregory R. Robert 03-Aug-1983 
44 7 ; Changed HANGUP_AST to PSMS$HANGUP_AST 
9000 65; V3B-005 GRR3005 Gregory R. Robert 29-Jul-1983 
44 96 3 Added FT1l transfer entries. 
G000 68 : V3B-004 GRR3004 Gregory R. Robert 27-Jun-1983 
0090 $3 : Added HANGUP routine transfer table 
000071: V3B-003 GRR3003 Gregory R. Robert 27-May-1983 
Roe i 3 Removed obsolete transfers, added SEND_RESPONSE. 
9000 74 ; V3B-002 GRR3002 Gregory R. Robert 27-May-1983 
ie 43 75; Added new transfer, renamed old ones. 
000 76 ; 
0000 77 ;-- 
0000 78 
0000 79; 
0000 80 ; DECLARATIONS 
0000 81; 
0000 82 SPRTSMBDEF 
0000 83 
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0000 -PSECT $SMBSHR_TRANFER, NOWRT, NOEXE, SHR, NOPIC, NOVEC 


: Define macro to set up transfer vectors 


«MACRO transfer entry_point 
TRANSFER entry_point 
. MASK entry_point sEntry point mask 
JMP entry_point+2 3Go to main routine code 
-ENDM =transfer 


; NOTE: These transfer vectors cannot spanner Add new vectors at the 
; end -- replace obsolete vectors with dummy entries. 


SMBSHR_TRANSFER: 
transfer Se TCE CE gf OR. MESSAGE ; Check for a job controller message 


transfer PSM$REPOR 3 pone opreetronms service 
transfer PSMSFILE_FLAG : Lag{ Sure page 
transfer PSMSFILE_TRAILER : File an ler page 
transfer SMBSREAD_MESSAGE_ITEM ; Get next item from message 
transfer PSMSINCLODE_MODULES - Include Library modules 
transfer SMBSINITIALIZE ; Initialize symbiont 

transfer PSMSJOB. FLAG ; Job flag/burst page 
transfer PSM$JOB_TRAILER ; 7 trailer page. 
transfer PSMS$PAGE_HEADER ; Page header routine 
transfer PSMSPAGE_ SETUP ; Page setup routine 
transfer PSMSPRIN : Standard print symbiont 
transfer PSMSREPLACE ; Provide a user service routine 


transfer PSMSREAD_I 
transfer PSMSREAD 
transfer SMBSREAD 
transfer ited beg 

T 


TEM ; Read an SCB item by descriptor 
ITEM ; Read an SCB item by reference 
MESSAGE ; Read a job controller message 
TO_J ; Send a job controller message 

LITE ; Write an SCB item by descriptor 

“ITE ; Write an SCB item by reference 


transfer PSMSWRI 
transfer PSMSWRI 


pone eel elolelojelolelaloelelolololelololelelelololeoleleolelololelelelolololo) 
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0000 


00000000 
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=SEP=19 
-PSECT CODE LONG,NOWRT 


: Hangup dispatch table 


Anctectatonae DISPATCH TABLE: 
fepest PSMSK _MAXSTREAMS 
0 
mOVIBL #index,R0 
BRW DISPATCH 


index = index + 1 
.endr 


PSMSS. _HANGUP_DISPATCH_ENTRY = 


: Mark the stream as hungup 


encanta 
BBSS #PSMSV 

108: RET 

- END 


ik kk kk tk a a tt 
DVDS SVP TT B® BS BS BS BB AAI nopnoronornorn) 


DNA UNE WR 0 ODNA UE WN OOO NOU EWN" OOONOUS 


: Globally declare dispatch entry size 


OVL PSMSGL opr eyecenes. RO 
PSMSL VSTREAM. FLAGS(RO),10$ 


AX/VMS Macro V04-00 
PRTSMB.SRCJTRANSFER.MAR; 1 


;One entry for each stream 
;Save etn 

;Set stream index 
sDispatch 


zAdvance macro index 


- PSMSHANGUP “DISPATCH. TABLE> / PSM$K_MAXSTREAMS 


; SCB address 
; Set the HANGUP flag 


TRANSFER 
Symbol table 


DISPATCH 
INDEX 

PSM$F ILE _F 

PSMSF ILE TRAILER 
PSMSGL_SCBVE 


VEC 
P SMSHARCUP DISPATCH_TABLE 
PSRGINCLUDE MODU ODULES™ 


M$JOB_FLA 
PSM$JOB_ TRAILER 


The working set Limit was 900 pages. 
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000 R 
00000020 

reeeeene 
eeeeeeee 
geerrnne 
00000000 
reekerene 
grererenre 
reerereee 


PSMS$K_MAXSTREAMS = 00000020 
PSMSL~- STREAM FLAGS = 0000000C 
PSMSPAGE_HEADER eeeeeees 
PS MSPAGE | SETUP eeereree 
PSMSPRIN eeeekere 
PSMSREAD_ITEM_DX eeterees 
PSMSREAD_ITEM_R teeeeeee 
PSMSREP PLACE eeeekere 
PSMSREPORT keeeenee 
PSM$S_HANGUP_DISPATCH_ENTRY = 00000008 
PSM$V_HANGUP = 00000002 
PeMSURI TE ITEM. DK eeeeeree 
PSMSWRITE_ ITEM keeeeeee 
SMBSCHECK FOR MESSAGE eeeerene 
SMBSINITIALIZE ekeeenee 
SMBSRE THES ereeeeer 
yy te It ee | ITEM teeeeeee 
SMBSSEND TO J eeeeeeee 
SMBSHR_ TRANS? FER 00000000 R 
PSECT name Allocation 
Ss 00000000 
00000000 < 
SSMBSHR_TRANFER 00000098 ( 
OOOOO1I0E ¢ 
Phase Page faults 
Initialization y 00: 
sounene processing sf 8: 
Syabol table sort 8 0: 
Pass 2 5 0: 
Symbol table output 4 0: 
Psect synopsis output 1 0: 
Cross-reference output 0 0: 
Assembler run totals 314 0: 


04-00 
RCIT RANSFER.MAR; 1 
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<x 


rorerorororoery Mrrnrwuwror 


<r 
pefojloioloioia= 


<< KO OC OK OE 
pelojiolololoiolqo) 
Mororonoponororys 


Sere eee ee ee eH 


NOWRT NOVEC BYTE 

WRT NOVEC BYTE 
NOWRT NOVEC BYTE 
NOWRT NOVEC LONG 


fewooceccoecececcocececece 


CPU Time 
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22141 bytes_(44 pages) of virtual memory were used to buffer_the pres pes igh + ode. 

There were 30 pages of symbol table space allocated to hold 350 non-local - local symbols. 
158 source Lines were read in Pass 1, produc ing 17 object records in Pass 

9 pages of virtual memory were used to define 8 macros. 


Macro Library name Macros defined 
~$255$DUAR8: tSysti6s -OBJ]SMBDEF .MLB; 1 1 
“$255$DUA SYSLIBJSTARLET.MLB; 3 

TOTALS (all Libraries) 4 


384 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: TRANSFER/OBJ=OBJ$: TRANSFER MSRC$: TRANSFER/UPDATE=(ENH$: TRANSFER) +LIB$: SMBDEF/LIB 


TCTTAL EQUI 
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